
#DEFINE USADO CHR(0)+CHR(0)+CHR(1)

/*
+----------------------------------------------------------------------------+
!                             FICHA TECNICA DO PROGRAMA                      !
+----------------------------------------------------------------------------+
!   DADOS DO PROGRAMA                                                        !
+------------------+---------------------------------------------------------+
!Nome              ! MA261CPO                                                !
+------------------+---------------------------------------------------------+
!Tabelas Utilizadas! SD3                                                     !
+------------------+---------------------------------------------------------+
!Descricao         ! inserir o capo D3_ZNUM (Tranf. Leva) no AHEADER        !
!                  !                                                         !
+------------------+---------------------------------------------------------+
!Autor             ! Guilherme - Dataroute                                   !
+------------------+---------------------------------------------------------+
!Data de Criacao   ! 05/07/13                                                !
+------------------+---------------------------------------------------------+
!   ATUALIZACOES                                                             !
+-------------------------------------------+-----------+-----------+--------+
!   Descricao detalhada da atualizacao      !Nome do    ! Analista  !Data da !
!                                           !Solicitante! Respons.  !Atualiz.!
+-------------------------------------------+-----------+-----------+--------+
!                                           ! 			!           !        !
!                                           !           !           !        !
+-------------------------------------------+-----------+-----------+--------+
!                                           !           !           !        !
!                                           !           !           !        !
+-------------------------------------------+-----------+-----------+--------+
*/


User Function MA261CPO( )

Local aTam 	:= {}
aTam 		:= TamSX3('D3_ZNUM')

Aadd(aHeader, {'Ped. Venda' , 'D3_ZNUM' , PesqPict('SD3', 'D3_ZNUM' , aTam[1]) , aTam[1], aTam[2], '', USADO, 'C', 'SD3', ''})

Return Nil